/*

Stefan Vogler
Proposal title: This is the title of the TESS proposal


HYPOTHESES

Stated-Hyp1: "we anticipate that individuals who have a single same-sex sexual 
encounter (vs. individuals who do not) will be regarded as less heterosexual" p.2

	Test-Hyp1: Perception of hetrosexuality will be lower for those who engage in same-sex behavior vs. those who do not.

Stated-Hyp2: "we hypothesize that perceptions of heterosexuality will operate 
differently for men and women because of the differential stigma attached to 
same-sex behavior for men and women... we anticipate that the degree to which 
they are regarded as ‘less heterosexual’ will be greater for men than for women 
(because men’s homosexuality is more stigmatized than women’s)"

	Test-Hyp2: Engaging in same-sex behavior will lower the perception of heterosexuality more for men than for women. 

Stated-Hyp3: "we anticipate that the degree to which they are regarded as ‘less 
heterosexual’ will be ... greater for black than for white 
individuals (because black sexualities are more stigmatized than white sexualities)."

	Test-Hyp3: Engaging in same-sex behavior will lower the perception of heterosexuality more for blacks than for whites. 
 

*/

clear all
use "VoglerS43.dta", clear

********************************************************************************

* INDICATORS OF EXPERIMENTAL MANIPULATIONS

	* gender in vignette
	tab P_GENDER 
	recode P_GENDER (1=1) (2=0), gen(vig_man)

	
	* race in vignette	
	tab P_RACE 
	recode P_RACE (1=0) (2=1), gen(vig_black)

	* sexual behavior in vignette	
	tab P_BEHAV 
	recode P_BEHAV (1=1) (2=0), gen(vig_samesex)
	
* OUTCOME MEASURES

	* perception of heterosexuality
	/*[Heterosexual] How likely do you believe it is that [DOV_NAME] is heterosexual, bisexual, or homosexual?*/
 	tab V1A
	clonevar percept_hetero=V1A 
	replace percept_hetero=. if V1A>100
	

********************************************************************************

* ANALYSIS
	

*Test-Hyp1: Perception of hetrosexuality will be lower for those who engage in same-sex behavior vs. those who do not.
	reg percept_hetero i.vig_samesex
	// do not reject. p= 0.000
	tess 1.vig_samesex -, init(VoglerS43)
	
*Test-Hyp2: Engaging in same-sex behavior will lower the perception of heterosexuality more for men than for women. 
	reg percept_hetero i.vig_samesex##i.vig_man
	// do not reject. p= 0.000
	tess 1.vig_samesex#1.vig_man -
	
*Test-Hyp3: Engaging in same-sex behavior will lower the perception of heterosexuality more for blacks than for whites. 
	reg percept_hetero i.vig_samesex##i.vig_black
	// reject. p= 0.944
	tess 1.vig_samesex#1.vig_black	-

